Amiga Collections: Auge 4000/Auge 4000 #41 (1989-11-05)(Amiga User Gruppe Einzugsgebiet 4000).zip/Auge 4000 #41 (1989-11-05)(Amiga User Gruppe Einzugsgebiet 4000).adf/NLQed.doc

AmigaBASIC Source Code | 1989-11-04 | 19KB | 269 lines

DATA  "*******************************************************************"
DATA  "*                        WISSoft präsentiert                      *"
DATA  "*                                                                 *"
DATA  "*                         N L Q  e d  V 1.0                       *"
DATA  "*                                                                 *"
DATA  "*              NLQ-Druckzeichen-Editor für STAR LC-10             *"
DATA  "*                                                                 *"
DATA  "*                    (c) 1989 by Roland S. Speth                  *"
DATA  "*******************************************************************"
DATA  "                                                                   "
DATA  "KURZBESCHREIBUNG                                                   "
DATA  "                                                                   "
DATA  "'NLQed V1.0' ist ein Editor für die benutzerdefinierbaren Druckzei-"
DATA  "chen des STAR LC-10. Sämtliche 78 Zeichen können gleichzeitig ent- "
DATA  "worfen, den ASCII-Codes zugeordnet und gespeichert werden. Probe-  "
DATA  "ausdrucke sind bereits während der Definitionsphase möglich. Die   "
DATA  "Zeichendefinitionen sowie weite Teile der Programmsteuerung erfol- "
DATA  "gen mit Hilfe der Maus. Ob NLQed für andere Drucker ebenfalls ge-  "
DATA  "eignet ist, ist leider nicht bekannt.                              "
DATA  "                                                           [Taste] "
DATA  "                                                                   "
DATA  "                                                                   "
DATA  "...UND JETZT NOCH EINMAL ETWAS AUSFÜHRLICHER                       "
DATA  "                                                                   "
DATA  "Wenn Du NLQed als Originalpaket bekommen hast, dann findest Du auf "
DATA  "Deiner Disk folgende Dateien: NLQed, Anleitung, NLQed.doc, sowie   "
DATA  "Kyrillisch und kyrillisch5. NLQed ist der Editor zum Definieren der"
DATA  "Zeichen, zum Probeausdrucken und Abspeichern dieser Zeichensätze.  "
DATA  "Anleitung ruft die Dokumentation NLQed.doc auf, Kyrillisch ist nur "
DATA  "ein Beispiel, wie man einen fertig abgespeicherten NLQed-Zeichen-  "
DATA  "satz an den Drucker schickt, wobei im Gegensatz zum Probeausdruck  "
DATA  "des NLQed die von Dir definierten ASCII-Zuweisungen berücksichtigt "
DATA  "werden. Kyrillisch5 schließlich ist ein Zeichensatz, den ich mit   "
DATA  "NLQed erstellt habe. Er soll als Beispiel dienen. (Falls Dir eine  "
DATA  "dieser Dateien fehlt, kannst Du eine Leerdiskette und ausreichend  "
DATA  "Rückporto an eine der obigen Adressen schicken. Wir schicken Dir   "
DATA  "dann das Original, können aber keinerlei Haftung übernehmen.)      "
DATA  "                                                                   "
DATA  "                                                                   "
DATA  "                                                                   "
DATA  "NLQed - DIE BESCHREIBUNG                                           "
DATA  "                                                                   "
DATA  "DIE DIP-SWITCHES: Wenn irgendetwas »drucktechnisches« nicht funk-  "
DATA  "tioniert, liegt es häufig an den Dip-Switches. Ich will nicht lange"
DATA  "philosophieren, warum meine so eingestellt sind wie folgt, aber mit"
DATA  "dieser Einstellung funktioniert bei mir alles, und das ist ja be-  "
DATA  "kanntlich die Hauptsache:                                          "
DATA  "                                                                   "
DATA  "   1-1  1-2  1-3  1-4  1-5  1-6  1-7  1-8     2-1  2-2  2-3  2-4   "
DATA  "   aus  ein  ein  ein  ein  ein  ein  ein     aus  ein  aus  ein   "
DATA  "                                                                   "
DATA  "Bevor ich mit der Beschreibung der einzelnen Menuefunktionen begin-"
DATA  "ne, muß ich noch auf eines hinweisen: Bekanntlich kann man in BASIC"
DATA  "zwar beliebig beim Malen und Schreiben zwischen verschiedenen Fen- "
DATA  "stern hin- und herschalten, kann sie jedoch nicht »wählen«. Dies   "
DATA  "kann nur der Benutzer mit der Maus tun. Aus diesem Grund hat der   "
DATA  "erste Mausklick auf ein bislang nicht gewähltes Fenster keinerlei  "
DATA  "Folgen, außer daß dieses eben angewählt wird. Ein zweiter Klick    "
DATA  "bringt dann erst die gewünschte Aktion. Auch Eingaben sind nur im  "
DATA  "gewählten Fenster möglich.                                         "
DATA  "NLQed arbeitet mit drei Fenstern. Auf der linken Bildschirmhälfte  "
DATA  "liegt das Editierfenster und rechts die beiden Fenster mit den ak- "
DATA  "tuellen Zeichensatzdefinitionen. Von den beiden letzten ist stets  "
DATA  "nur eines zu sehen, aber mit Hilfe des Gadgets unten rechts kann   "
DATA  "man zwischen beiden hin- und herschalten.                          "
DATA  "Im oberen Teil des Editierfensters liegt das Definitionsfeld. Hier "
DATA  "kann man mit der Maus beliebig Punkte setzen, um einem Druckzeichen"
DATA  "Gestalt zu verleihen. Ein erneuter Klick auf denselben Punkt läßt  "
DATA  "ihn wieder verschwinden. Der aktuelle ASCII-Code, den NLQed diesem "
DATA  "Zeichen zuordnet, wird unterhalb des Definitionsfeldes angegeben   "
DATA  "und kann nach Anklicken dieser Zeile über die Tastatur verändert   "
DATA  "werden.                                                            "
DATA  "Welches Zeichen des 78 Zeichen umfassenden Zeichensatzes man edi-  "
DATA  "tieren will, wählt man in einem der beiden rechten Fenster aus, in-"
DATA  "dem man es mit der Maus anklickt. Es wird dann rot eingerahmt und  "
DATA  "seine gegenwärtigen Definitionen werden vergrößert in das Editier- "
DATA  "fenster übertragen, wo es dann beliebig verändert werden kann.     "
DATA  "Verschiedene weitergehende Editierhilfen können über die Menüs ak- "
DATA  "tiviert werden:                                                    "
DATA  "                                                                   "
DATA  "ZEICHENSATZ LADEN: Wählst Du diesen Menüpunkt, so erscheint zuerst "
DATA  "einmal eine Sicherheitsabfrage, die verhindern soll, daß Du durch  "
DATA  "das Laden eines neuen Zeichensatzes Deinen alten zerstörst. Beant- "
DATA  "worte sie durch Anklicken der richtigen Auswahlantwort. Gib dann   "
DATA  "einen Dateinamen (bis 23 Zeichen) ein. Falls dort bereits ein Name "
DATA  "steht, kannst Du diesen durch Drücken der RETURN-Taste übernehmen, "
DATA  "ansonsten mußt Du ihn vollständig neu eingeben. Dann wird der Zei- "
DATA  "chensatz geladen, sofern er zu finden ist. Das dauert auch nicht   "
DATA  "sehr lange, auch nicht das Einzeichnen des ersten Zeichens ins Edi-"
DATA  "tierfenster. Danach beginnt NLQed aber, den gesamten Zeichensatz in"
DATA  "die beiden rechten Fenster einzuzeichnen, was volle 300 Sekunden   "
DATA  "dauert. Das läßt sich aber wie folgt unterbrechen (die betroffenen "
DATA  "Zeichen sind alle ordnungsgemäß geladen, werden nur nicht gemalt): "
DATA  "Wähle zunächst mit der Maus das rechte Fenster, in dem gerade ge-  "
DATA  "malt wird und drücke dann die Taste [ESC]. Das war schon alles.    "
DATA  "(Die Funktionen des zweiten Menüs erlauben es, das Zeichnen später "
DATA  "gegebenenfalls nachzuholen.)                                       "
DATA  "                                                                   "
DATA  "                                                                   "
DATA  "                                                                   "
DATA  "ZEICHENSATZ SPEICHERN: Der Zeichensatz, den Du gerade entwirfst,   "
DATA  "wird unter dem zuletzt eingegebenen Dateinamen gespeichert. Wird   "
DATA  "dieser Menüpunkt irrtümlich gewählt, ohne daß zuvor ein gültiger   "
DATA  "Dateiname eingegeben worden ist, verfährt NLQed automatisch so, als"
DATA  "hättest Du den folgenden Menüpunkt gewählt:                        "
DATA  "                                                                   "
DATA  "ZEICHENSATZ SPEICHERN ALS: Hier kannst Du vor dem Speichern einen  "
DATA  "neuen Dateinamen (bis 23 Zeichen) eingeben oder mit Hilfe der RE-  "
DATA  "TURN-Taste den alten übernehmen. Dann wird der gesamte Zeichensatz "
DATA  "abgespeichert. Vielleicht sollte ich noch etwas zum Dateiformat sa-"
DATA  "gen: Die Daten liegen in einer sequentiellen Datei, und zwar alle  "
DATA  "78 Zeichen hintereinander. Die Definition des n. Zeichens beginnt  "
DATA  "dann erst einmal mit dem zugehörigen ASCII-Code, gefolgt von den   "
DATA  "Codes für die einzelnen Spalten des Zeichens, code(n,0...46). Die  "
DATA  "Reihenfolge und Berechnung dieser »codes« sind dieselben wie die im"
DATA  "Druckerhandbuch für die Variablen m(0...46) verwendeten. Übrigens  "
DATA  "gibt NLQed der Variablen code(n,0) in dieser Version die Einheits- "
DATA  "definition code(n,0)=128, die im Programmverlauf nicht verändert   "
DATA  "werden kann.                                                              "
DATA  "                                                                   "
DATA  "ZEICHENSATZ AUSDRUCKEN: Druckt alle 78 Zeichen des gerade editier- "
DATA  "ten Zeichensatzes in einer Reihe aus. Die benutzerdefinierten ASCII"
DATA  "Codes werden dabei nicht berücksichtigt, sondern es werden die Zei-"
DATA  "chen 60 bis 137 belegt. Deshalb sollte man nach Gebrauch dieser    "
DATA  "Funktion den Drucker einmal ausschalten, bevor man wieder normale  "
DATA  "Ausdrucke (mit fremden Programmen) vornehmen will.                 "
DATA  "                                                                   "
DATA  "PROGRAMM BEENDEN: Wer das nicht weiß, gehört in eine Klapsmühle!!! "
DATA  "Vor der Ausführung dieser Funktion gibt es eine Sicherheitsabfrage."
DATA  "                                                                   "
DATA  "GEWÄHLTES ZEICHEN LÖSCHEN: Nach einer Sicherheitsabfrage löscht der"
DATA  "NLQed beide graphischen Darstellungen des gerade gewählten Zeichens"
DATA  "und die Zeichendefinitionen einschließlich des zugeordneten ASCII- "
DATA  "Codes, wobei dem x-ten Zeichen dann wieder der ASCII-Code x zuge-  "
DATA  "teilt wird, wie es ja auch im Grundzustand üblich ist.             "
DATA  "                                                                   "
DATA  "GESAMTEN ZEICHENSATZ LÖSCHEN: Verfährt ebenso wie der vorangegange-"
DATA  "ne Menüpunkt, nur diesmal mit dem gesamten Zeichensatz, so daß NLQ-"
DATA  "ed in den Zustand direkt nach dem Programmstart versetzt wird (bis "
DATA  "auf einen eventuell eingegebenen Dateinamen).                      "
DATA  "                                                                   "
DATA  "GEWÄHLTES ZEICHEN KOPIEREN NACH: Das gewählte Zeichen wird mit all "
DATA  "seinen Definitionen einschließlich ASCII-Code auf das Zeichen ko-  "
DATA  "piert, das Du anschließend mit der Maus wählst. Während dieser Aus-"
DATA  "wahl ist lediglich das Umschalten zwischen den beiden rechten Fen- "
DATA  "stern möglich. Eine Sicherheitsabfrage erfolgt nicht, da man beim  "
DATA  "versehentlichen Anwählen dieser Menüfunktion das betreffende Zei-  "
DATA  "chen auch wieder auf sich selbst zurückkopieren kann.              "
DATA  "                                                                   "
DATA  "GEWÄHLTES ZEICHEN ZEICHNEN: Diese Funktion erlaubt es, die verklei-"
DATA  "nerte Darstellung des gewählten Zeichens in das entsprechende Fen- "
DATA  "ster (rechts) einzuzeichnen. Dies ist jedoch nur dann sinnvoll,    "
DATA  "wenn das Einzeichnen nach dem Laden des Zeichensatzes unterbrochen "
DATA  "worden ist, denn sonst ist die Darstellung ohnehin stets aktuell.  "
DATA  "                                                                   "
DATA  "GESAMTEN ZEICHENSATZ ZEICHNEN: NLQed verfährt hier ebenso wie der  "
DATA  "vorangegangene Menüpunkt, nur diesmal mit dem gesamten Zeichensatz,"
DATA  "was leider (wie oben bereits erwähnt) etwa 300 Sekunden dauert. Das"
DATA  "Zeichnen kann ebenso wie nach dem Ladevorgang durch Anwählen eines "
DATA  "der rechten Fenster und Drücken von [ESC] unterbrochen werden.     "
DATA  "                                                                   "
DATA  "EINIGE ANMERKUNGEN ZUM PROGRAMM                                    "
DATA  "                                                                   "
DATA  "Eigentlich ist NLQed ein reines Abfallprodukt. Wir bei WISSoft hat-"
DATA  "ten ursprünglich nur vor, unserem Star LC-10 ein paar kyrillische  "
DATA  "Zeichen zu entlocken, doch als sich die Definitionen nach der Me-  "
DATA  "thode des Handbuchs als ziemlich mühsam entpuppten, haben wir uns  "
DATA  "lieber ein kleines Programm geschrieben, um die Arbeit zu erleich- "
DATA  "tern. Das ist auch der Grund, warum es nur für eine Sorte von Druk-"
DATA  "kern zu gebrauchen ist (d.h. wenn der Herr aus Indien nichts dage- "
DATA  "gen hat, kann man NLQed ja auch mal auf anderen Geräten ausprobie- "
DATA  "ren). Trotzdem wollten wir das Programm nun nicht in unseren Schub-"
DATA  "laden verstauben lassen, denn vielleicht gibt es ja Leute, die es  "
DATA  "auch gebrauchen können. Hauptsache, diese verfluchen uns nicht,    "
DATA  "wenn mal etwas nicht so ganz klappt. Dazu sagen wir nur: Selbst ist"
DATA  "die Frau/der Mann! Korrigiert und erweitert das Programm und werft "
DATA  "es in den PD-Topf zurück! Übrigens: Als Autor muß ich sagen, soooo "
DATA  "furchtbar mies finde ich das Programm gar nicht.                   "
DATA  "                                                                   "
DATA  "                                                                   "
DATA  "DIE RECHTE, WENN MAN SIE NOCH SO NENNEN WILL                       "
DATA  "                                                                   "
DATA  "'NLQed V1.0' ist ein echtes Public Domain-Programm. Es darf belie- "
DATA  "big kopiert, weitergegeben, verändert, verflucht und sogar aufge-  "
DATA  "gessen werden. Meinetwegen könnt Ihr es auch verhökern (das wird   "
DATA  "Euch sowieso nicht gelingen). Die einzigen Bedingungen sind diese: "
DATA  "Mein Name (Roland S. Speth) und die Bezeichnung 'WISSoft' mÜssen   "
DATA  "immer irgendwie mit weitergegeben werden. Das muß schon sein. Denn "
DATA  "wie sollen wir denn sonst je berühmt werden? Und wenn einem von    "
DATA  "Euch eine entscheidende Verbesserung einfällt, dann darf er auch   "
DATA  "seinen Namen da hineinschreiben und mit uns berühmt werden. Denn so"
DATA  "ein NLQed V1.01... gehört natürlich wieder in die Public Domain.   "
DATA  "                                                                   "
DATA  "DER AUTOR, WAS ER MACHT UND WO ER HAUST                            "
DATA  "                                                                   "
DATA  "Ich heiße Roland, bin jetzt 22 Jahre alt (glaube ich) und studiere "
DATA  "momentan Physik. Für die, die es interessiert: im dritten Semester "
DATA  "an der Universität Hannover; alle anderen hätten diesen Satz über- "
DATA  "springen können. Und dann gibt es da noch Martin, bei dem ist alles"
DATA  "ganz genauso, nur daß er schon im fünften Semester ist. Und wir    "
DATA  "zwei zusammen sind WISSoft. So, nun wißt Ihr Bescheid. Wenn Ihr ir-"
DATA  "gendwelche Wünsche habt (Autogramme etc.), dann wendet Euch bitte  "
DATA  "an folgende Adressen:                                              "
DATA  "                                                                   "
DATA  "                  Roland S. Speth                                  "
DATA  "                  Am Listholze 2                                   "
DATA  "                  D-3000 Hannover 1                                "
DATA  "                                                                   "
DATA  "Wenn Ihr Antwort erhalten wollt, müßt Ihr unbedingt Rückporto bei- "
DATA  "legen. Und denkt dran: Während des Semesters ist unsere Freizeit   "
DATA  "äußerst knapp, so daß es zu erheblichen Verzögerungen kommen kann. "
DATA  "                                                                   "
DATA  "DAS LEIDLICHE KAPITEL VOM GEBEN UND NEHMEN                         "
DATA  "                                                                   "
DATA  "Das vorliegende Programm ist kostenlos, und das ohne Einschränkung."
DATA  "Wenn Sie aber einem alten Raumfahrt-Fan eine Freude machen wollen: "
DATA  "Ich freue mich über alles, was mit diesem Thema zusammenhängt: Fo- "
DATA  "tos und Bücher, Prospekte, Artikel, Hefte, Modelle, Autogramme usw."
DATA  "Aber bekanntlich ist ja Geben seliger als Nehmen (leider!), doch   "
DATA  "von meiner Seligsprechung ist in Kirchenkreisen aus gutem Grunde   "
DATA  "noch nicht die Rede! Mach Dir also keine Hoffnungen.               "
DATA  "                                                                   "
DATA  "Viel Spaß mit dem NLQed wünscht                                    "
DATA  "                                                                   "
DATA  "           W I S S o f t                                           "
DATA  "                                                                   "
DATA  "           Roland S. Speth                                         "
DATA  "           Am Listholze 2                                          "
DATA  "           D-3000 Hannover 1                                       "
DATA  "                                                                   "
DATA  ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,

FOR blatt=1 TO 12
   CLS
   FOR zeile=1 TO 20
      READ textzeile$
      LOCATE 2+zeile,1
      PRINT SPACE$(7)+textzeile$
   NEXT zeile
   WHILE INKEY$<>""
   WEND
   WHILE INKEY$=""
   WEND
NEXT blatt

CLS
WHILE INKEY$<>""
WEND
COLOR 3
LOCATE 12,11
PRINT "Möchten Sie sich diese Anleitung ausdrucken lassen (J/N)?

Druckabfrage:
t$=INKEY$
IF t$="J" OR t$="j" THEN
   RESTORE
   OPEN "par:" FOR OUTPUT AS #2
      FOR blatt=1 TO 12
         FOR zeile=1 TO 20
            READ textzeile$
            PRINT #2,SPACE$(7)+textzeile$
         NEXT zeile
      NEXT blatt
   CLOSE #2
   SYSTEM
END IF
IF t$="N" OR t$="n" THEN SYSTEM :ELSE Druckabfrage